(widget-color-sample-face-get): Return ((foreground-color . COLOR))

instead of constructing a face.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index a3821dcfe0a9a4e19f75017b5a2b75303232c15f..c20c40e7643ccc33bca258944390c37287eb1126 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3400,10 +3400,7 @@ To use this type, you must define :match or :match-alternatives."
                    (widget-value widget)
                  (error (widget-get widget :value)))))
     (if (color-defined-p value)
-       (let ((symbol (intern (concat "fg:" value))))
-         (condition-case nil
-             (facemenu-get-face symbol)
-           (error 'default)))
+       (list (cons 'foreground-color value))
       'default)))
 
 (defun widget-color-action (widget &optional event)